R Notebook

options(max.print=1000000)
library(readxl)
library(dplyr)
fileName <- "ANZ synthesised transaction dataset.xlsx"
df <- as.data.frame(read_xlsx(fileName))

Expecting numeric in C3052 / R3052C3: got 'THE DISCOUNT CHEMIST GROUP'Expecting numeric in C4360 / R4360C3: got 'LAND WATER & PLANNING East Melbourne'

xl <- df
# df %>%  rmarkdown::paged_table()
# for (i in seq_along(1:ncol(df)))
# {
#   print(paste("Column ", i, " = ", sum(is.na(df[i]))))
# }
summary(df$amount)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   0.10   16.00   29.00  187.93   53.66 8835.98 

df

#print(df[, 'amount'])

### Average Transaction amount ###
avg_transaction <- mean(df$amount)
{
  plot(avg_transaction, ylab="Average Transaction")
  abline(h=avg_transaction, col='blue')
  legend("topright", legend=paste("Mean: ", round(avg_transaction, digits=2)),
       col="blue", lty=1:2, cex=0.8)
  title(expression(phantom("title (") * "Average Transaction Amount"), col.main = "purple")
}

library(dplyr)
library(ggplot2)
df$date <- as.Date(df$date)
week_var <- strftime(df$date, format = "%V")
week_var <- factor(week_var)
amount_spent_weekly <- aggregate(df$amount, list(week_var), sum)
week_numbers <- c()
week_start <- as.numeric(amount_spent_weekly$Group.1[1])
week_end <- length(amount_spent_weekly$Group.1)
for (i in seq_along(week_start:week_end)){
  week_numbers <- append(week_numbers, i+1 - week_start)
}
{
  png(filename="weekly_amount.png", width=1350, height=600)
  
  ### ggplot init
  
  plt <- ggplot(amount_spent_weekly, aes(week_numbers, x, group=1))
  
  ### Labels
  
  l <- labs(x="Week", y="Amount", title="Amount by week")
  
  ### theme start
  
  t<- theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1, size=12, face="bold", colour = "blue"), 
            plot.title = element_text(size=16, face= "bold", colour= "brown" ),
    axis.title.x = element_text(size=14, face="bold", colour = "orange"),    
    axis.title.y = element_text(size=14, face="bold", colour = "orange"),    
    #axis.text.x = element_text(size=12, face="bold", colour = "black"), 
    axis.text.y = element_text(size=12, face="bold", colour = "blue")) 
  
  ###theme end
  
  print(plt+geom_point(size=6, col="red")+geom_line(color="blue", size=1)+l+t + scale_x_continuous(breaks=seq(1, 14, 1)))
  dev.off()
}

null device 
          1 

  print(plt+geom_point(size=6, col="red")+geom_line(color="blue", size=1)+l+t + scale_x_continuous(breaks=seq(1, 14, 1)))

library(lubridate)
library(dplyr)
library(collapsibleTree)
amount_account_data <- c()
df <- arrange(df, factor(df$account))
account_fact <- factor(df$account)
p <- aggregate(df$amount, list(account_fact), sum)
customer_id_fact <- factor(df$customer_id)
amount_account_data <- append(amount_account_data, p)
z <- c()
for (o in levels(customer_id_fact)){
  z <- append(z, o) #z
}
z <- bind_rows(as.data.frame(z))
amount_account_data <- append(amount_account_data, z)

#library(webshot)
z1 <- c()
namesA <- c()
for (k in seq_along(1:100)){
  namesA <- filter(df, df$account == amount_account_data$Group.1[k]) 
  z1 <- append(z1, namesA$first_name[1])
}
z1 <- bind_rows(as.data.frame(z1))
amount_account_data <- append(amount_account_data, z1)
amount_account_data <- as.data.frame(amount_account_data)
# widgetToPng <- function(widget, file = "widget.png",  ...) {
#   temp <- tempfile(fileext = ".html")
#   file <- R.utils::getAbsolutePath(file)
#   htmlwidgets::saveWidget(widget, temp)
#   webshot(
#     temp, file,
#     selector = "#htmlwidget_container",
#     zoom = 2,
#     delay = 0.5,
#     ...
#   )
# }
# widgetToPng(
#   collapsibleTreeSummary(
#   amount_account_data,
#   hierarchy = c("z1", "Group.1", "z", 'x'),
#   width = 1100,
#   height=1400,
#   collapsed = FALSE,
#   maxPercent = 50,
#   root = "Customer Details",
#   zoomable = FALSE
# ),
#   "CustomerDetailsTree.png"
# )
c <- collapsibleTree(
  amount_account_data,
  hierarchy = c("z1", "Group.1", "z", 'x'),
  root = "Customer Details",
  width = 1100,
  height=1400,
  zoomable = FALSE,
  collapsed = TRUE,
)
htmltools::save_html(c, file='CustomerDetailsTree.html')